home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / creature.ads < prev    next >
Text File  |  1994-01-09  |  382b  |  21 lines
  1. --
  2. -- Creatures is the package in which worms resides.
  3. -- Charles Kann, The George Washington university  
  4. --
  5.  
  6. PACKAGE Creatures IS
  7.  
  8.     TASK TYPE Worm IS 
  9.         ENTRY Init_Worm( Symbol : IN CHARACTER  );
  10.     END Worm;
  11.  
  12.     TYPE Coordinate IS
  13.         RECORD
  14.             x,y : Integer;
  15.         END RECORD;
  16.  
  17.     Maximum_xy : Coordinate;
  18.     Minimum_xy : Coordinate;
  19.  
  20. END Creatures;
  21.